Sub potencia_2(ByVal pBase As Double, Optional ByRef pExponente As Variant)
    Dim exponente As Double
    If IsMissing(pExponente) Then
        exponente = 2
    Else
        exponente = pExponente
    End If
    Debug.Print "Base : " & pBase & " Exponente : " & exponente _
    & " Resultado : " & pBase ^ exponente
End Sub
